home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ROM Magic
/
ROM Magic.iso
/
pc
/
01_kinb
/
k_hy_sh
/
00037_Script_37
< prev
Wrap
Text File
|
1994-10-06
|
1KB
|
73 lines
on startMovie
global outtime
if not soundBusy (1) then
sound playFile 1, "K_Sound" ---SOUND
end if
delay
when timeOut then go to marker (1)
set the timeOutLength = 5*60
startTimer
end startMovie
on idle
if not soundBusy (1) then
sound playFile 1, "K_Sound"
end if
end idle
on stepMovie
if not soundBusy (1) then
sound playFile 1, "K_Sound" ---SOUND
end if
if the frame =8 then ---LAST FRAME
delay
set the timeOutLength = 5*60
when timeOut then go to 1 of movie "K_Main" ---MENU
startTimer
else
if the frame =5 then ---ENLARGE
delay
set the timeOutLength = 10*60
startTimer
else
if the frame =7 then ---ENLARGE
delay
set the timeOutLength = 10*60
startTimer
else
delay
set the timeOutLength = 5*60
when timeOut then go to marker (1)
startTimer
end if
end if
end if
end stepMovie
on teisi
puppetSprite 6,TRUE
set the castNum of sprite 6 to H12
updateStage
when timeOut then
delay
set the timeOutLength = 10*60*60
when timeOut then go to marker (1)
startTimer
set the castNum of sprite 6 to H11
puppetSprite 6,False
end teisi
on zokkou
puppetSprite 6,False
if the frame = 8 then ---LAST FRAME
go to 1 of movie "K_Main" ---MENU
else
go to marker (1)
end if
end zokkou